00010	DATA:	SETZ	X4,
00020	DATA2:	SKIPN	U2,MOVES(X4)
00030		JRST	TERPRI
00040		HLRZ	U1,U2
00050		PUSHJ	PDP,NUMOUT
00060		MOVEI	U1,[ASCIZ /-/]
00070		PUSHJ	PDP,PRINT
00080		HRRZ	U1,U2
00090		PUSHJ	PDP,NUMOUT
00100		MOVE	U1,FLZZ(X4)
00110		PUSHJ	PDP,TELLS2+1
00120		MOVEI	U1,[ASCIZ /  /]
00130		PUSHJ	PDP,PRINT
00140		MOVEI	U3,6
00150	DATA3:	MOVE	X2,FLZZZ(X4)
00160		LSH	U1,6
00170		MOVEM	X2,FLZZZ(X4)
00180		IDIVI	U1,5
00190		MOVEM	X2,X2SS
00200		IDIVI	U1,3
00210		MOVEM	X2,X2S
00220		SUBI	X2,1
00230		PUSHJ	PDP,NUM1
00240		MOVE	U1,X2S
00250		SUBI	X2,1
00260		PUSHJ	PDP,NUM1
00270		MOVE	U1,X2SS
00280		SUBI	X2,2
00290		PUSHJ	PDP,NUM1
00300		SOJG	U3,DATA3
00310		PUSHJ	PDP,TERPRI
00320		AOJA	X4,DATA2
00330	
00340	U2SAV:	Z		;TEMP SAVE OF U2
00350	ZZZ:	BLOCK	20	;TERM SCORE IN PL
00360	BZZ:	BLOCK	20
00370	FLZZZ:	BLOCK	20
00380	
00390	NUM1:	JUMPL	U1,NUM2
00400		MOVEI	X1," "
00410		PUSHJ	PDP,TYO
00420		JRST	NUM3
00430	
00440		X 120000,DATA,DATA
00450	EXTERN	NUM2,NUM3
00460	INTERN	NUM2,NUM3
00470	
00480